type TTest = class(